perm filename LKSGD.F4[TLC,MUS]1 blob sn#060267 filedate 1973-08-29 generic text, type T, neo UTF8
00100	C  GOOD-LOOKS PROGRAM  --  TYPE X TO BACKUP
00200		INTEGER DL,SL
00300	11	FORMAT(A1)
00400	1	FORMAT(' LEGS? GOOD OR BAD?  ',$)
00500	12	TYPE 1
00600		ACCEPT 11,L
00700		IF(L.EQ.'G')GO TO 16
00800	
00900	2	FORMAT(' THIGHS?  ',$)
01000	13	TYPE 2
01100		ACCEPT 11,T
01200		IF(T.EQ.'X')GO TO 12
01300	
01400	3	FORMAT(' KNEES?  ',$)
01500	14	TYPE 3
01600		ACCEPT 11,K
01700		IF(K.EQ.'X')GO TO 13
01800	
01900	4	FORMAT(' CALVES?  ',$)
02000	15	TYPE 4
02100		ACCEPT 11,C
02200		IF(C.EQ.'X')GO TO 14
02300	
02400	5	FORMAT(' ARMS?  ',$)
02500	16	TYPE 5
02600		ACCEPT 11,A
02700		IF(A.EQ.'X')GO TO 15
02800	
02900	6	FORMAT(' SHOULDERS? GOOD, WIDE OR NARROW?  ',$)
03000	17	TYPE 6
03100		ACCEPT 11,S
03200		IF(S.EQ.'X')GO TO 16
03300	
03400	7	FORMAT(' WAIST? GOOD, WIDE OR NARROW?  ',$)
03500	18	TYPE 7
03600		ACCEPT 11,H
03700		IF(H.EQ.'X')GO TO 17
03800	
03900	8	FORMAT(' HIPS? GOOD, WIDE OR NARROW?  ',$)
04000	19	TYPE 8
04100		ACCEPT 11,B
04200		IF(B.EQ.'X')GO TO 18
04300	
04400	9	FORMAT(' BUST? GOOD, BIG OR SMALL?  ',$)
04500	20	TYPE 9
04600		ACCEPT 11,N
04700		IF(N.EQ.'X')GO TO 19
04800	
04900	10	FORMAT(' NECK? GOOD, LONG OR SHORT?  ',$)
05000		DL=1
05100		IF(L.EQ.'G')GO TO 21
05200	C  JUMP IF GOOD LEGS
05300		IF(T.EQ.'B')DL=2
05400		IF(K.EQ.'B')DL=3
05500		IF(C.EQ.'B')DL=4
05600	21	SL=1
05700		IF(S.EQ.'N')SL=3
05800	C   SHOULDER LINE BEST
05900		IF(S.NE.'W')GO TO 22
06000		SL=2
06100	C   SLEEVELESS BEST, NO SHOULDER LINE
06200		IF(A.EQ.'B')SL=4
06300	C   LONG SLEEVES,NO SHOULDER LINE
06400	41	FORMAT(/' << SKIRT SHOULD BE '$)
06500	22	TYPE 41
06600		GO TO(23,24,25,26),DL
06700	
06800	27	FORMAT('+SHORT.'/)
06900	23	TYPE 27
07000		GO TO 28
07100	
07200	29	FORMAT('+MEDIUM SHORT.'/)
07300	24	TYPE 29
07400		GO TO 28
07500	
07600	30	FORMAT('+MEDIUM LONG.'/)
07700	25	TYPE 30
07800		GO TO 28
07900	
08000	31	FORMAT('+LONG.'/)
08100	26	TYPE 31
08200	
08300	28	GO TO(32,33,34,35),SL
08400	
08500	36	FORMAT(' << ANY SHOULDER CUT.'/)
08600	32	TYPE 36
08700		GO TO 37
08800	
08900	38	FORMAT(' << SLEEVELESS IS BEST.'/)
09000	33	TYPE 38
09100		GO TO 37
09200	
09300	39	FORMAT(' << USE SHOULDER LINE.'/)
09400	34	TYPE 39
09500		GO TO 37
09600	
09700	40	FORMAT(' << LONG SLEEVES BUT NO SHOULDER LINE.'/)
09800	35	TYPE 40
09900	
10000	37	CALL EXIT
10100		END